home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-04d.zip / 04d / Hity z okladki / Plus Firma / Plus Firma 5.5.1.msi / Binary.NewBinary22 < prev    next >
Text File  |  2007-02-14  |  947b  |  44 lines
  1. Dim test, objShell, key5, key6,pos, adobeInstalled
  2. On Error Resume Next
  3.  
  4. adobeInstalled = False
  5. Set objShell= CreateObject("WScript.Shell")
  6.  
  7. '#  rejestracja na www
  8.  
  9. 'crm++rules ! objShell.Run("http://www.sonect.pl/new_user.xml")
  10.  
  11. '#
  12.  
  13.  
  14.  
  15. key5 = "HKEY_LOCAL_MACHINE\SOFTWARE\Adobe\Acrobat Reader\5.0\InstallPath\" 
  16. test = objShell.RegRead(key5) 
  17. pos = InStr(test, "Reader")
  18. if pos = 0 then 
  19.     adobeInstalled = False
  20. else
  21.     adobeInstalled = True
  22. end if
  23.  
  24.  
  25.  
  26. key6 = "HKEY_LOCAL_MACHINE\SOFTWARE\Adobe\Acrobat Reader\6.0\InstallPath\" 
  27. test = objShell.RegRead(key6) 
  28. pos = InStr(test, "Reader")
  29. if pos = 0 then 
  30.     adobeInstalled = False
  31. else
  32.     adobeInstalled = True
  33. end if
  34. if adobeInstalled then
  35.     'Session.Property("READER")=True    
  36.     'MsgBox "Adobe Reader jest zainstalowany"
  37.     
  38. else
  39.     'Session.Property("READER")=False
  40.     'MsgBox "Adobe Reader jest nie zainstalowany"
  41.     ObjShell.Run("..\AdobeRdr\arce505pol.exe")
  42. end if
  43.  
  44.